home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / macros3.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  6.6 KB  |  124 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "LISP"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  6.    (ETHE LETF LETF*)
  7.   )
  8. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  9.    "SYSTEM"
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-4
  12.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) ETHE
  13.    REMOVE-OLD-DEFINITIONS MACRO
  14.    #Y(ETHE
  15.       #81Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 3A 9D 5B 77 9E 5B
  16.            5B 77 37 01 71 92 DA AD DB AD DC B0 7A 02 7A 02 7A 01 DD DE B0 DF B4
  17.            7A 02 7A 03 E0 B1 7A 02 E1 E2 E3 DF B6 7A 02 B5 DF B9 7A 02 7A 06 7A
  18.            04 7A 03 60 03 19 06 AC 2E 01 19 03
  19.           )
  20.       3. MACRO-CALL-ERROR THE LET MULTIPLE-VALUE-LIST IF %THE QUOTE VALUES-LIST
  21.       ERROR-OF-TYPE 'ERROR
  22.       (DEUTSCH
  23.         "Die Form ~S lieferte ~:[keine Werte~;~:*~{~S~^ ; ~}~] ,~@
  24.                        das ist nicht vom Typ ~S."
  25.         ENGLISH
  26.         "The form ~S yielded ~:[no values~;~:*~{~S~^ ; ~}~] ,~@
  27.                        that's not of type ~S."
  28.         FRANCAIS
  29.         "La forme ~S a rendu ~:[aucune valeur~;~:*~{~S~^ ; ~}~] ,~@
  30.                         ceci n'est pas de type ~S."
  31.   )  ))
  32. #Y(#:TOP-LEVEL-FORM-5
  33.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  34.    LETF* REMOVE-OLD-DEFINITIONS MACRO
  35.    #Y(LETF*
  36.       #59Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 1B 9D 5B 77
  37.            9E 5B 78 AA 62 AF 30 63 41 02 91 00 10 00 14 AE AB AE 2C 03 03 3E 19
  38.            08 AC 2E 01 19 03 DA 9C 79 60 01 1A 6A
  39.           )
  40.       2. MACRO-CALL-ERROR DECLARE EXPAND-LETF*
  41.   )  )
  42. #Y(#:TOP-LEVEL-FORM-6
  43.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  44.    EXPAND-LETF* REMOVE-OLD-DEFINITIONS
  45.    #Y(EXPAND-LETF*
  46.       #384Y(00 00 00 00 03 00 00 00 00 04 9E 1F 27 93 03 01 02 9D 1F 81 19 9D
  47.             5B 1F 05 9D 5B 5B 1C 27 D8 E3 E4 E5 6D 03 04 9F 14 32 01 1F D8 D9
  48.             DA DB 6D 03 04 A0 1A 72 91 03 73 DD 62 AE AE 32 02 23 7B 02 63 3F
  49.             02 19 04 86 02 01 9D 5B 5A F6 9C 1F 14 93 01 24 06 0F AB 71 4A 24
  50.             07 09 9C 5B 5A F7 E0 AB 60 02 F6 9C 1F 80 CB 93 01 24 09 80 C5 AB
  51.             71 4A 24 0A 80 BE 9C 5B 5B 5A F7 E1 9D 5B 77 AC 60 03 F6 1A 60 DD
  52.             AE AE 7A 02 9E 5B 5A 79 9E 5B 5B 61 02 1A 13 91 00 6D DD AE AE 7A
  53.             02 7A 01 B3 AE 7A 01 32 02 23 61 02 14 02 1A 80 7E E8 94 04 AE B4
  54.             AF 7A 01 32 02 23 7B 03 00 1A 80 6D E7 AE 8F 00 28 69 01 04 94 07
  55.             1A 30 93 00 82 01 2E 11 41 05 93 02 AB 7A 02 EA B0 B0 72 01 17 B5
  56.             30 A7 5C FF 37 01 71 92 AA 83 09 AA 93 04 AE 37 03 70 B0 83 08 16
  57.             01 AB 83 06 16 05 9B 20 4D DD AF 71 4C B8 E8 B1 71 4C B6 BC EB EC
  58.             B5 71 4C BA 7A 01 32 02 23 79 B4 31 4C 7B 02 7A 01 32 02 23 7B 03
  59.             7A 01 32 02 23 61 02 16 04 F6 02 14 3F 02 19 09 9D F7 7C 00 94 06
  60.             B0 B0 27 FE D1 41 02 9E 1F FF 54 93 03 23 0E FF 77 AD 2E 11 41 05
  61.             37 01 71 92 DD EA B1 B1 72 01 17 93 05 AE 7A 02 AD B6 7A 02 7A 02
  62.             72 02 24 B9 EB EC AF 93 09 B3 37 03 70 B0 B7 7A 03 B1 7A 03 7A 01
  63.             32 02 23 7B 02 63 3F 02 19 0F
  64.            )
  65.       PROGRAM-ERROR "LETF* code contains a dotted list, ending with ~S"
  66.       "Dotted List im Code von LETF*, endet mit ~S"
  67.       "Dans le code de LETF*, occurence d'une paire pointΘe terminΘe en ~S"
  68.       LANGUAGE LET* VALUES-LIST 2. MULTIPLE-VALUE-LIST THE 3.
  69.       "illegal syntax in LETF* binding: ~S"
  70.       "Falsche Syntax in Bindung zu LETF* : ~S"
  71.       "Syntaxe illΘgale dans une liaison pour LETF* : ~S" VALUES #.#'SYMBOLP
  72.       MULTIPLE-VALUE-BIND GET-SETF-METHOD #.#'LIST UNWIND-PROTECT PROGN
  73.   )  )
  74. #Y(#:TOP-LEVEL-FORM-7
  75.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) LETF
  76.    REMOVE-OLD-DEFINITIONS MACRO
  77.    #Y(LETF
  78.       #260Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 1E 9D 5B
  79.             77 9E 5B 78 AA 62 AF 30 63 41 02 91 00 13 00 14 62 AF 2E 03 41 04
  80.             AD 80 4C 03 1A 2B AC 2E 01 19 03 DA 9C 79 60 01 1A 67 AD 62 1A 80
  81.             8B 93 00 A2 5A 5B 77 7A 02 83 07 AC B0 37 06 C7 F8 C8 F7 DE 80 54
  82.             05 82 06 16 03 9E 1F 80 73 9E 5A 77 AA 8E 09 06 AA 31 8C 58 1B 50
  83.             16 01 1C 80 61 1A 68 DF E0 AF AE 32 02 23 79 9F 7B 02 60 01 F7 7D
  84.             00 92 04 80 59 E1 AF B3 AE 32 02 23 7B 02 60 01 F7 7D 00 92 06 80
  85.             4B E2 B1 B3 AE 32 02 23 7B 02 60 01 F7 7D 00 92 05 3D E3 B0 B3 AE
  86.             32 02 23 7B 02 60 01 F7 7D 00 92 00 38 1A 2D 9C 5A 19 0F 86 01 00
  87.             5B 77 9E 21 FF 77 82 01 AB 8C 97 71 16 03 AD 80 4C 03 B1 62 91 03
  88.             FF 97 91 04 FF A7 91 06 FF B5 91 05 43 92 00 09 92 07 50 9C 5A 77
  89.             24 07 4A E2 62 B3 E0 A0 79 7A 01 32 02 23 61 02 19 0F
  90.            )
  91.       2. MACRO-CALL-ERROR DECLARE EXPAND-LETF #.#'SECOND #.#'EQ 1.
  92.       UNWIND-PROTECT PROGN LET* LET LETF*
  93.   )  )
  94. #Y(#:TOP-LEVEL-FORM-8
  95.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  96.    EXPAND-LETF REMOVE-OLD-DEFINITIONS
  97.    #Y(EXPAND-LETF
  98.       #348Y(00 00 00 00 01 00 00 00 00 02 9C 1F 27 93 01 01 02 9D 1F 81 03 9D
  99.             5B 1F 05 9D 5B 5B 1C 1F D8 E2 E3 E4 6D 03 04 9F 14 32 01 1F D8 D9
  100.             DA DB 6D 03 04 9E 1A 72 91 01 73 01 04 3F 04 19 02 86 02 01 9D 5B
  101.             5A F6 9C 1F 14 93 01 24 05 0F AB 71 4A 24 06 09 9C 5B 5A F7 DF AB
  102.             60 02 F6 9C 1F 80 BD 93 01 24 08 80 B7 AB 71 4A 24 09 80 B0 9C 5B
  103.             5B 5A F7 E0 9D 5B 77 AC 60 03 F6 1A 60 37 01 71 92 AA B0 7A 02 A0
  104.             79 B1 AC 7A 02 A0 5C 1A 2D 62 94 06 1A 0C 93 00 37 01 71 92 83 02
  105.             16 01 82 00 9B 20 71 16 01 AA 7F A8 00 E5 9C 79 B0 7A 02 A0 79 E7
  106.             94 08 AD 72 01 17 AF 32 02 24 14 AE AE 3F 04 19 0A E6 B0 8F 00 28
  107.             46 01 04 94 09 1A 30 93 00 82 01 2E 10 41 05 93 02 AB 7A 02 E7 B0
  108.             B0 72 01 17 B5 30 A7 5C FF 37 01 71 92 AA 83 09 AA 93 04 AE 37 03
  109.             70 B0 83 08 16 01 AB 83 06 16 05 9B 20 4D AE E5 A0 79 B5 7A 02 A5
  110.             79 70 A7 B2 AE B3 70 A7 AE B3 70 A7 3F 04 19 0E 9D F7 7C 00 94 04
  111.             27 FE E9 41 04 A0 1F FF 54 93 05 23 0D FF 94 AF 2E 10 41 05 37 01
  112.             71 92 E7 B0 B0 72 01 17 93 04 AD 7A 02 AC B7 7A 02 7A 02 72 02 24
  113.             B3 AC 93 06 B0 37 03 70 B0 A5 79 AF A5 79 3F 04 19 0F
  114.            )
  115.       PROGRAM-ERROR "LETF code contains a dotted list, ending with ~S"
  116.       "Dotted List im Code von LETF, endet mit ~S"
  117.       "Dans le code de LETF, occurence d'une paire pointΘe terminΘe en ~S"
  118.       LANGUAGE VALUES-LIST 2. MULTIPLE-VALUE-LIST THE 3.
  119.       "illegal syntax in LETF binding: ~S"
  120.       "Falsche Syntax in Bindung zu LETF : ~S"
  121.       "Syntaxe illΘgale dans une liaison pour LETF : ~S" VALUES #.#'SYMBOLP
  122.       #.#'LIST GET-SETF-METHOD
  123.   )  )
  124.